home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / oaspro41.zip / SFD.PAS < prev   
Pascal/Delphi Source File  |  1988-05-22  |  1KB  |  46 lines
  1. {$R-}    {Range checking off}
  2. {$B+}    {Boolean complete evaluation on}
  3. {$S+}    {Stack checking on}
  4. {$I+}    {I/O checking on}
  5. {$N-}    {No numeric coprocessor}
  6. {$M 65500,16384,655360} {Turbo 3 default stack and heap}
  7.  
  8.  
  9. {$V-}
  10. {$R+}
  11. {***********************************************************************}
  12. uses scl,sfd_a,sfd_b,sfd_c;
  13. {***********************************************************************}
  14.  
  15. var s_save,i_save:string10;
  16.  
  17.  
  18. BEGIN;
  19.   Endofprog:=FALSE;
  20.   getdir(0,currpath);
  21.   S_save:=Screenfile_ext;
  22.   I_save:=Indexfile_ext;
  23.   Screenfile_ext:='.FOR';
  24.   Indexfile_ext:='.FIN';
  25.   Select_Format_File('sfd');
  26.   screenfile_ext:=s_save;
  27.   indexfile_ext:=i_save;
  28.   Loaddefaults;
  29.   Initsysvars;
  30.   Wrkname:=None;
  31.   Workformat:=None;
  32.   {$ifdef demo }
  33.   select_format('first');
  34.   display_format(0,y_max div 2);
  35.   repeat handle_format until format_done;
  36.   {$endif}
  37.   WHILE NOT Endofprog DO Menu;
  38.   Close_Formats;
  39.   IF Wrkname <> None THEN
  40.     BEGIN;
  41.       CLOSE(Wrkscreens);
  42.       CLOSE(Wrkindex);
  43.       CLOSE(Wrkmsg);
  44.     END;
  45. END.
  46.